DECLARE FUNCTION BiosCaps% ()

'$INCLUDE: 'QB.BI'

CapsLock% = BiosCaps%

IF CapsLock% THEN
	PRINT "Caps Lock is ON"
ELSE
	PRINT "Caps Lock is OFF"
END IF

END

FUNCTION BiosCaps%

	DEF SEG = &H40              ' BIOS Data Area
	kbFlags% = PEEK(&H17)       ' Keyboard status flags
	DEF SEG

	IF (kbFlags% AND 64) <> 0 THEN
		BiosCaps% = -1          ' True
	ELSE
		BiosCaps% = 0           ' False
	END IF

END FUNCTION